home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / komei4 / komei4.exe / ICON / C_1B.HD6 < prev    next >
Text File  |  1993-06-02  |  3KB  |  224 lines
  1. ds_name        db    'MOJ\C_1B',0
  2.  
  3. paint_wd:
  4.     SET_P dt1
  5.     SET_P dt2
  6.     SET_P dt3
  7.     SET_P dt4
  8.  
  9. re_paint:
  10.      WD_CLS 0
  11.  
  12.      BOX boxdt1,16
  13.      BOX boxdt3,16
  14.  
  15.      call ds_ma
  16.  
  17.      mov word ptr [esi],0
  18.  
  19.      call boxdt2
  20.  
  21.      mov word ptr [edi+6],1
  22.      mov word ptr [edi+8],1
  23.  
  24.      mov word ptr [edi+14],0
  25.      mov word ptr [edi+16],0
  26.  
  27. mawa:
  28.     call ds_ma
  29.     mov ax,[esi]
  30.  
  31.     call boxdt2
  32.  
  33.      mov [edi+14],ax
  34.      mov [edi+16],ax
  35.     
  36.     BOX boxdt2,1
  37.  
  38.     call ds_ma
  39.  
  40.     inc word ptr [esi]
  41.     mov ax,[esi]
  42.     cmp ax,16
  43.     jge mawa1
  44.  
  45.     call boxdt2
  46.  
  47.     add word ptr [edi+6],21
  48.  
  49.     jmp mawa
  50.  
  51. mawa1:
  52.     BOX boxdt4,1
  53.     MOZI mozidt
  54.     ret
  55.  
  56. be_called:
  57.     YOMU    ax,300
  58.     cmp    ax,400
  59.     je    neru
  60.     cmp    ax,500
  61.     je    okiru
  62.      ret
  63. neru:
  64.     WD_ERZ 1
  65.     WD_ERZ 0
  66.     WD_LEFT
  67.     ret
  68. okiru:
  69.     WD_WANT
  70.     jmp    re_paint
  71.  
  72. ds_ma:
  73.     call sub_esi
  74.     dw    0
  75.  
  76. mouse_in:
  77.       cmp ch,0
  78.       jne mouseck
  79.       ret
  80.  
  81. mou_dt:
  82.     call sub_edi
  83.     dw    0
  84.  
  85. mouseck:
  86.      call mou_dt
  87.      mov [edi],cx
  88.  
  89.      MOU boxdt1,16
  90.  
  91.      cmp bx,1                  ;bx=1 find
  92.      je short mck1             
  93.      ret
  94. mck1:
  95.     call mou_dt
  96.     mov cx,[edi]
  97.     cmp ch,2
  98.     je back_col
  99.  
  100.     dec ax
  101.     push ax
  102.  
  103.     movzx eax,ax
  104.     mov ebx,21
  105.     mul ebx
  106.  
  107.     call boxdt4
  108.     mov [edi+6],ax
  109.  
  110.      BOX boxdt3,16
  111.  
  112.     BOX boxdt4,1
  113.  
  114.     MOZI mozidt
  115.  
  116.     pop ax
  117.  
  118.  
  119.     KAKU word ptr 300,5
  120.     KAKU 302,ax
  121.  
  122.  
  123.     CALL_P dt1
  124.  
  125.     KAKU word ptr 300,5
  126.     CALL_P dt2
  127.  
  128.     KAKU word ptr 300,1
  129.     CALL_P dt4
  130.      ret
  131.  
  132. back_col:
  133.     KAKU    word ptr 300,2
  134.     dec ax
  135.     KAKU 302,ax
  136.     CALL_P dt3
  137.  
  138.     KAKU word ptr 300,2
  139.     CALL_P dt4
  140.     ret
  141.  
  142.  
  143. look_me:
  144.      call sub_esi         ; esi 固定です｡
  145.      dd 0,0
  146.      dw     1    ; ここが 1 の物は open start です｡
  147.          dw      0
  148.          dw  20*16+18,44,256+45,256+30,15,0,0,0
  149.  
  150.  
  151.  
  152. boxdt1:
  153.     call sub_edi
  154.         dw    16,20,20,1,1,21,0,15,0,0
  155. boxdt3:
  156.     call sub_edi
  157.         dw    16,20,20,1,21,21,0,15,0,0
  158. boxdt4:
  159.     call sub_edi
  160.         dw    1,20,20,21*14,21,21,0,15,2,0
  161.  
  162. boxdt2:
  163.     call sub_edi
  164.         dw    1,20,20,1,1,21,0,15,0,1
  165.  
  166.  
  167.  
  168. ; [count][sz_x][sz_y][off_x][off_y][+x][+y][f_col][b_col][s_no]
  169.  
  170. dt1:
  171.     call sub_edi
  172.     dw    0
  173.     db    'CONTEN',0
  174. dt2:
  175.     call sub_edi
  176.     dw    0
  177.     db    'F_COL',0
  178. dt3:
  179.     call sub_edi
  180.     dw    0
  181.     db    'B_COL',0
  182. dt4:
  183.     call sub_edi
  184.     dw    0
  185.     db    'I_MK',0
  186.  
  187.  
  188.  
  189. p_call:
  190.     M_P_CALL
  191. p_set:
  192.     M_P_SET
  193.  
  194.  
  195. mozidt:
  196.     call sub_edi
  197.            dw    0        ;screen_no
  198.            dw    15      ; mozi_color
  199.            dw    1      ; 書き出し位置  x
  200.            dw    20      ;          y
  201.            dw    21      ; next offset x
  202.            dw    0      ; next offset y
  203.                dw   16      ; gyo suu
  204.                    db    '00',0   ;[14]
  205.                    db    '01',0   ;[17]
  206.                    db    '02',0   ;[20]
  207.                    db    '03',0   ;[20]
  208.                    db    '04',0   ;[20]
  209.                    db    '05',0   ;[20]
  210.                    db    '06',0   ;[20]
  211.                    db    '07',0   ;[20]
  212.                    db    '08',0   ;[20]
  213.                    db    '09',0   ;[20]
  214.                    db    '10',0   ;[20]
  215.                    db    '11',0   ;[20]
  216.                    db    '12',0   ;[20]
  217.                    db    '13',0   ;[20]
  218.                    db    '14',0   ;[20]
  219.                    db    '15',0   ;[20]
  220.                 dw 0,0
  221.  
  222.  
  223.  
  224.